program Project1; // Zadanie 1.6

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  a = 37;
  b = 11;

begin
  Writeln('Program oblicza reszte z calkowitego dzielenia  dwoch liczb.');
  Writeln;
  Writeln('Dla liczb a = ', a, ' i b = ', b);
  Writeln(a, ' mod ', b, ' = ', a mod b, '.');

  Readln; // czeka na nacisniecie klawisza Enter
end.

